Admin_MailList.asp 耐品图片管理系统标准版A - ASP源码程序

gusucode.com > 耐品图片管理系统标准版A > 耐品图片管理系统标准版A/Admin_MailList.asp
    <!--#include file="Admin_ChkPurview.asp"-->
<%
Dim Rs,Etype,Page

Etype = Netout.CheckNumeric(Request.Querystring("Etype"))
Page = Netout.CheckNumeric(Request.QueryString("page"))
If Page < 1 Then Page = 1
%>
<html>
<head>
<title>无标题文档</title>
<SCRIPT language=javascript>
function unselectall(){
    if(document.myform.chkAll.checked){
		document.myform.chkAll.checked = document.myform.chkAll.checked&0;
    } 	
}
function CheckAll(form){
	for (var i=0;i<form.elements.length;i++){
		var e = form.elements[i];
		if (e.Name != "")
		e.checked = form.chkAll.checked;
	}
}
function ConfirmDel(){
	if(confirm("确定要删除选中的邮件地址吗？本操作是无法恢复的！"))
		return true;
	else
		return false;
}

</SCRIPT>
<script language="javascript" src="Inc/Pop.js"></script>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
Title="管 理 邮 件 列 表"
Link="<a href='?Etype=0' class='black'>订阅列表</a> | <a href='?Etype=1' class='black'>退订列表</a> | <a href='Admin_MailSetup.asp' class='black'>邮件信息设置</a>"

strFileName = "Admin_MailList.asp?Etype="&Etype&"&"
With Behind
	.WriteHtmlHead
	.WriteHtmlTop Title,Link
	.MaxPerPage	 = 18
	.TopPage	 = False
	.BottomPage	 = True
	.SqlRecord	 = "select * from NT_MailList where Etype="&Etype&" order by SubId desc"
	.InitText	 = "个邮件地址"
	.strFileName = strFileName
	.ShowRecord Page
	.WriteHtmlEnd
End With
set Netout=nothing

Sub ShowContent(MaxPerPage)%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <form name="myform" method="Post" action="Admin_MailListDel.asp?Action=Del" onSubmit="return ConfirmDel();">
    <tr>
      <td colspan="2"><table width="100%" border="0" cellspacing="1" cellpadding="2" class="border">
          <tr class="tdbg1">
            <td class="tdbg1" width="6%" align="center">选中</td>
            <td class="tdbg1" width="30%" align="center">邮件地址</td>
            <td class="tdbg1" width="30%" align="center">订阅时间</td>
            <td class="tdbg1" width="13%" align="center">操作</td>
          </tr>
			<%i=0
			set SubId = rs("SubId")
			set Email = rs("Email")
			Set SubTime = Rs("SubTime")
			Do While Not rs.Eof and i<MaxPerPage%>
			  <tr class="tdbg" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#EBEBEB'">
				<td align="center"><input name="SubId" type="checkbox" onClick="unselectall()" id="SubId" value="<%=SubId%>"></td>
				<td><%=Email%></td>
				<td><%=SubTime%></td>
				<td align="center"><a href="Admin_MailListDel.asp?Action=Del&SubId=<%=SubId%>" class="black" onclick='return ConfirmDel();'>删除</a>  </td>
			  </tr>
			  <%i=i+1
			  rs.movenext
			loop%>
        </table>
       <br></td>
    </tr>
    <tr>
      <td width="38%" height="20">&nbsp;&nbsp;
	  <input name="chkAll" type="checkbox" id="chkAll" onclick=CheckAll(this.form) value="checkbox">
      选中本页所有邮件地址</td>
      <td>
        <input name="submit" type='submit' value='删除选定的邮件地址'>
	  </td>
    </tr>
  </form>
</table>
<%
End Sub
%>